; DESCRIPTION : Displays figlet text in a window, or sends it to
; your text editor.
;===== SEE IF THE MASTER LIST OF FONTS EXISTS ======================
IF NOT EXISTS >NIL: MASTER.LIST
;===== SEE IF THE FONTS ARE INSTALLED IN LIBS:FIGLETFONTS ===========
IF NOT EXISTS LIBS:FIGLETFONTS
RTEZREQUEST "FIGLET:" "THE FIGLET FONTS ARE NOT INSTALLED\nIF YOU INTEND TO USE AMIGA FIGLET\nFROM THE SHELL, YOU MUST INSTALL THE FONTS" BUTTONTEXT "_INSTALL FONTS PERMANENTLY|_DON'T INSTALL NOW" DEFAULT 0
SETENV RESULT $RC
IF $RESULT EQ 0
SETENV LOCATION figletfonts
LIST >MASTER.LIST $LOCATION lformat "%N"
ELSE
ECHO "WORKING..." NOLINE
COPY FIGLETFONTS TO LIBS:FIGLETFONTS QUIET
RTEZREQUEST "FIGLET:" "THE FONTS ARE INSTALLED IN LIBS:FIGLETFONTS.\nYOU MAY NOW USE FIGLET FROM THE SHELL." BUTTONTEXT "_CONTINUE"
SETENV LOCATION "libs:figletfonts"
LIST >MASTER.LIST $LOCATION lformat "%N"
ENDIF
ELSE
SETENV LOCATION "LIBS:FIGLETFONTS"
LIST >MASTER.LIST $LOCATION lformat "%N"
ENDIF
ELSE
IF EXISTS LIBS:FIGLETFONTS
SETENV LOCATION "LIBS:FIGLETFONTS"
ELSE
SETENV LOCATION figletfonts
ENDIF
ENDIF
;==================== SET UP SOME VARIABLES ========================
SETENV FIGTEXT "Testing"
ECHO >RAM:FIG $FIGTEXT
;================ WRITE THE BUTTON FILE TO RAM: ====================